home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 06 CAD / CADWD2.BIN / c64.bas
Unknown  |  2019-04-13  |  2.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 50 4f 4b 45 34 30 | 34 34 38 2c 32 35 35 3a |1 POKE40|448,255:|
|00000010| 46 4f 52 54 3d 31 54 4f | 34 3a 52 45 41 44 41 3a |FORT=1TO|4:READA:|
|00000020| 50 4f 4b 45 38 32 38 2b | 54 2c 41 3a 4e 45 58 54 |POKE828+|T,A:NEXT|
|00000030| 3a 47 4f 54 4f 31 36 0a | 32 20 44 41 54 41 34 36 |:GOTO16.|2 DATA46|
|00000040| 2c 37 30 2c 37 33 2c 37 | 31 0a 33 20 58 3d 58 2b |,70,73,7|1.3 X=X+|
|00000050| 55 53 52 28 31 32 31 29 | 3a 59 3d 59 2d 55 53 52 |USR(121)|:Y=Y-USR|
|00000060| 28 31 32 32 29 0a 34 20 | 49 46 58 3e 33 34 33 54 |(122).4 |IFX>343T|
|00000070| 48 45 4e 58 3d 58 2d 33 | 34 33 0a 35 20 49 46 58 |HENX=X-3|43.5 IFX|
|00000080| 3c 31 54 48 45 4e 58 3d | 58 2b 33 34 33 0a 36 20 |<1THENX=|X+343.6 |
|00000090| 49 46 59 3e 32 34 39 54 | 48 45 4e 59 3d 59 2d 32 |IFY>249T|HENY=Y-2|
|000000a0| 32 30 0a 37 20 49 46 59 | 3c 33 30 54 48 45 4e 59 |20.7 IFY|<30THENY|
|000000b0| 3d 59 2b 32 32 30 0a 38 | 20 41 3d 55 53 52 28 33 |=Y+220.8| A=USR(3|
|000000c0| 34 29 2c 58 2c 59 2c 30 | 3a 41 3d 55 53 52 28 33 |4),X,Y,0|:A=USR(3|
|000000d0| 34 29 2c 31 36 2c 59 2c | 36 3a 41 3d 55 53 52 28 |4),16,Y,|6:A=USR(|
|000000e0| 33 34 29 2c 58 2c 32 33 | 31 2c 37 3a 52 45 54 55 |34),X,23|1,7:RETU|
|000000f0| 52 4e 0a 39 20 4f 50 45 | 4e 31 35 2c 44 30 2c 31 |RN.9 OPE|N15,D0,1|
|00000100| 35 2c 22 49 30 22 3a 43 | 4c 4f 53 45 31 35 3a 52 |5,"I0":C|LOSE15:R|
|00000110| 45 54 55 52 4e 0a 31 30 | 20 41 3d 55 53 52 28 31 |ETURN.10| A=USR(1|
|00000120| 31 37 29 3a 49 46 28 41 | 3c 3e 31 36 29 54 48 45 |17):IF(A|<>16)THE|
|00000130| 4e 52 45 54 55 52 4e 0a | 31 31 20 50 4f 4b 45 4f |NRETURN.|11 POKEO|
|00000140| 2d 33 2c 30 3a 49 46 58 | 3e 32 35 35 54 48 45 4e |-3,0:IFX|>255THEN|
|00000150| 50 4f 4b 45 4f 2d 33 2c | 31 3a 50 4f 4b 45 4f 2d |POKEO-3,|1:POKEO-|
|00000160| 32 2c 58 2d 32 35 36 3a | 47 4f 54 4f 31 33 0a 31 |2,X-256:|GOTO13.1|
|00000170| 32 20 50 4f 4b 45 4f 2d | 32 2c 58 0a 31 33 20 50 |2 POKEO-|2,X.13 P|
|00000180| 4f 4b 45 4f 2d 34 2c 59 | 3a 49 46 4d 4f 44 45 3d |OKEO-4,Y|:IFMODE=|
|00000190| 31 54 48 45 4e 31 35 0a | 31 34 20 50 4f 4b 45 4f |1THEN15.|14 POKEO|
|000001a0| 2d 35 2c 4d 4f 44 45 3a | 4d 4f 44 45 3d 31 3a 53 |-5,MODE:|MODE=1:S|
|000001b0| 59 53 4f 3a 41 3d 55 53 | 52 28 33 39 29 2c 30 2c |YSO:A=US|R(39),0,|
|000001c0| 32 34 3a 52 45 54 55 52 | 4e 0a 31 35 20 53 59 53 |24:RETUR|N.15 SYS|
|000001d0| 33 36 38 36 34 3a 50 4f | 4b 45 4f 2d 35 2c 4d 4f |36864:PO|KEO-5,MO|
|000001e0| 44 45 3a 53 59 53 4f 3a | 52 45 54 55 52 4e 0a 31 |DE:SYSO:|RETURN.1|
|000001f0| 36 20 4f 3d 33 38 32 30 | 3a 4d 4f 44 45 3d 30 3a |6 O=3820|:MODE=0:|
|00000200| 50 4f 4b 45 4f 2d 36 2c | 30 3a 41 3d 55 53 52 28 |POKEO-6,|0:A=USR(|
|00000210| 33 39 29 2c 30 2c 32 35 | 3a 41 3d 55 53 52 28 33 |39),0,25|:A=USR(3|
|00000220| 32 29 2c 30 0a 31 37 20 | 58 43 3d 32 33 3a 59 43 |2),0.17 |XC=23:YC|
|00000230| 3d 32 30 3a 50 4f 4b 45 | 4f 2d 37 2c 58 43 3a 50 |=20:POKE|O-7,XC:P|
|00000240| 4f 4b 45 4f 2d 38 2c 59 | 43 3a 53 59 53 4f 2b 33 |OKEO-8,Y|C:SYSO+3|
|00000250| 0a 31 38 20 47 4f 53 55 | 42 31 30 3a 47 4f 53 55 |.18 GOSU|B10:GOSU|
|00000260| 42 33 3a 47 45 54 41 24 | 3a 49 46 41 24 3d 22 22 |B3:GETA$|:IFA$=""|
|00000270| 54 48 45 4e 31 38 0a 31 | 39 20 49 46 4d 4f 44 45 |THEN18.1|9 IFMODE|
|00000280| 3d 31 54 48 45 4e 32 35 | 0a 32 30 20 49 46 41 24 |=1THEN25|.20 IFA$|
|00000290| 3d 22 50 22 54 48 45 4e | 4d 4f 44 45 3d 30 3a 47 |="P"THEN|MODE=0:G|
|000002a0| 4f 53 55 42 31 31 0a 32 | 31 20 49 46 41 24 3d 22 |OSUB11.2|1 IFA$="|
|000002b0| 1d 22 54 48 45 4e 49 46 | 58 43 3c 32 33 54 48 45 |."THENIF|XC<23THE|
|000002c0| 4e 58 43 3d 58 43 2b 31 | 3a 50 4f 4b 45 4f 2d 37 |NXC=XC+1|:POKEO-7|
|000002d0| 2c 58 43 3a 53 59 53 4f | 2b 33 0a 32 32 20 49 46 |,XC:SYSO|+3.22 IF|
|000002e0| 41 24 3d 22 9d 22 54 48 | 45 4e 49 46 58 43 3e 30 |A$="."TH|ENIFXC>0|
|000002f0| 54 48 45 4e 58 43 3d 58 | 43 2d 31 3a 50 4f 4b 45 |THENXC=X|C-1:POKE|
|00000300| 4f 2d 37 2c 58 43 3a 53 | 59 53 4f 2b 33 0a 32 33 |O-7,XC:S|YSO+3.23|
|00000310| 20 49 46 41 24 3d 22 11 | 22 54 48 45 4e 49 46 59 | IFA$=".|"THENIFY|
|00000320| 43 3c 32 30 54 48 45 4e | 59 43 3d 59 43 2b 31 3a |C<20THEN|YC=YC+1:|
|00000330| 50 4f 4b 45 4f 2d 38 2c | 59 43 3a 53 59 53 4f 2b |POKEO-8,|YC:SYSO+|
|00000340| 33 0a 32 34 20 49 46 41 | 24 3d 22 91 22 54 48 45 |3.24 IFA|$="."THE|
|00000350| 4e 49 46 59 43 3e 30 54 | 48 45 4e 59 43 3d 59 43 |NIFYC>0T|HENYC=YC|
|00000360| 2d 31 3a 50 4f 4b 45 4f | 2d 38 2c 59 43 3a 53 59 |-1:POKEO|-8,YC:SY|
|00000370| 53 4f 2b 33 0a 32 35 20 | 49 46 41 24 3d 43 48 52 |SO+3.25 |IFA$=CHR|
|00000380| 24 28 32 30 29 54 48 45 | 4e 53 59 53 33 36 38 38 |$(20)THE|NSYS3688|
|00000390| 35 0a 32 36 20 49 46 41 | 24 3d 22 21 22 54 48 45 |5.26 IFA|$="!"THE|
|000003a0| 4e 53 59 53 33 36 38 36 | 37 0a 32 37 20 49 46 41 |NSYS3686|7.27 IFA|
|000003b0| 24 3d 22 93 22 54 48 45 | 4e 41 3d 55 53 52 28 33 |$="."THE|NA=USR(3|
|000003c0| 39 29 2c 30 2c 32 35 3a | 4d 4f 44 45 3d 30 0a 32 |9),0,25:|MODE=0.2|
|000003d0| 38 20 49 46 41 24 3d 22 | 46 22 54 48 45 4e 33 34 |8 IFA$="|F"THEN34|
|000003e0| 0a 32 39 20 49 46 41 24 | 3d 22 41 22 54 48 45 4e |.29 IFA$|="A"THEN|
|000003f0| 50 4f 4b 45 4f 2d 36 2c | 30 0a 33 30 20 49 46 41 |POKEO-6,|0.30 IFA|
|00000400| 24 3d 22 4f 22 54 48 45 | 4e 50 4f 4b 45 4f 2d 36 |$="O"THE|NPOKEO-6|
|00000410| 2c 31 0a 33 31 20 49 46 | 41 24 3d 22 58 22 54 48 |,1.31 IF|A$="X"TH|
|00000420| 45 4e 50 4f 4b 45 4f 2d | 36 2c 32 0a 33 32 20 49 |ENPOKEO-|6,2.32 I|
|00000430| 46 41 24 3d 43 48 52 24 | 28 31 33 29 54 48 45 4e |FA$=CHR$|(13)THEN|
|00000440| 35 34 0a 33 33 20 47 4f | 54 4f 31 38 0a 33 34 20 |54.33 GO|TO18.34 |
|00000450| 49 46 4d 4f 44 45 3d 30 | 54 48 45 4e 31 38 0a 33 |IFMODE=0|THEN18.3|
|00000460| 35 20 41 3d 55 53 52 28 | 33 33 29 2c 30 3a 41 3d |5 A=USR(|33),0:A=|
|00000470| 55 53 52 28 33 34 29 2c | 30 2c 59 2c 36 3a 41 3d |USR(34),|0,Y,6:A=|
|00000480| 55 53 52 28 33 34 29 2c | 58 2c 32 35 35 2c 37 3a |USR(34),|X,255,7:|
|00000490| 41 3d 55 53 52 28 30 29 | 2c 30 2c 31 2c 34 0a 33 |A=USR(0)|,0,1,4.3|
|000004a0| 36 20 41 3d 55 53 52 28 | 32 31 29 3a 41 3d 55 53 |6 A=USR(|21):A=US|
|000004b0| 52 28 31 37 29 3a 41 3d | 55 53 52 28 31 39 29 3a |R(17):A=|USR(19):|
|000004c0| 41 3d 55 53 52 28 31 29 | 0a 33 37 20 47 4f 53 55 |A=USR(1)|.37 GOSU|
|000004d0| 42 39 3a 50 52 49 4e 54 | 43 48 52 24 28 31 34 29 |B9:PRINT|CHR$(14)|
|000004e0| 22 93 11 11 11 c6 49 4c | 45 20 44 49 53 4b 20 49 |".....IL|E DISK I|
|000004f0| 53 20 49 4e 20 44 52 49 | 56 45 3a 20 20 22 3b 44 |S IN DRI|VE:  ";D|
|00000500| 31 3b 0a 33 38 20 47 45 | 54 41 24 3a 49 46 41 24 |1;.38 GE|TA$:IFA$|
|00000510| 3d 22 22 54 48 45 4e 33 | 38 0a 33 39 20 49 46 28 |=""THEN3|8.39 IF(|
|00000520| 44 31 3d 38 29 41 4e 44 | 28 41 24 3d 22 39 22 29 |D1=8)AND|(A$="9")|
|00000530| 54 48 45 4e 44 31 3d 39 | 3a 50 4f 4b 45 33 36 38 |THEND1=9|:POKE368|
|00000540| 36 33 2c 44 31 0a 34 30 | 20 49 46 28 44 31 3d 39 |63,D1.40| IF(D1=9|
|00000550| 29 41 4e 44 28 41 24 3d | 22 38 22 29 54 48 45 4e |)AND(A$=|"8")THEN|
|00000560| 44 31 3d 38 3a 50 4f 4b | 45 33 36 38 36 33 2c 44 |D1=8:POK|E36863,D|
|00000570| 31 0a 34 31 20 50 52 49 | 4e 54 22 9d 9d 9d 22 3b |1.41 PRI|NT"...";|
|00000580| 44 31 0a 34 32 20 50 52 | 49 4e 54 22 11 24 20 46 |D1.42 PR|INT".$ F|
|00000590| 4f 52 20 44 49 52 45 43 | 54 4f 09 00 22 0a 34 33 |OR DIREC|TO..".43|
|000005a0| 20 50 52 49 4e 54 22 11 | c6 49 4c 45 4e 41 4d 45 | PRINT".|.ILENAME|
|000005b0| 3a 20 22 3b 0a 34 34 20 | 47 45 54 41 24 3a 49 46 |: ";.44 |GETA$:IF|
|000005c0| 41 24 3d 22 22 54 48 45 | 4e 34 34 0a 34 35 20 50 |A$=""THE|N44.45 P|
|000005d0| 52 49 4e 54 41 24 3a 49 | 46 41 24 3d 22 24 22 54 |RINTA$:I|FA$="$"T|
|000005e0| 48 45 4e 53 59 53 33 36 | 39 30 36 3a 47 4f 54 4f |HENSYS36|906:GOTO|
|000005f0| 34 33 0a 34 36 20 49 46 | 41 24 3d 43 48 52 24 28 |43.46 IF|A$=CHR$(|
|00000600| 31 33 29 54 48 45 4e 35 | 32 0a 34 37 20 4f 50 45 |13)THEN5|2.47 OPE|
|00000610| 4e 32 2c 44 31 2c 32 2c | 22 40 30 3a 22 2b 41 24 |N2,D1,2,|"@0:"+A$|
|00000620| 2b 22 2e 46 49 47 2c 50 | 2c 57 22 3a 50 52 49 4e |+".FIG,P|,W":PRIN|
|00000630| 54 23 32 2c 43 48 52 24 | 28 30 29 3b 43 48 52 24 |T#2,CHR$|(0);CHR$|
|00000640| 28 31 35 38 29 3b 3a 4e | 3d 30 3a 53 3d 31 32 0a |(158);:N|=0:S=12.|
|00000650| 34 38 20 52 3d 50 45 45 | 4b 28 31 38 30 34 38 2b |48 R=PEE|K(18048+|
|00000660| 4e 29 3a 49 46 52 3d 32 | 35 35 54 48 45 4e 35 31 |N):IFR=2|55THEN51|
|00000670| 0a 34 39 20 52 3d 52 2d | 53 3a 53 3d 32 32 2d 53 |.49 R=R-|S:S=22-S|
|00000680| 3a 49 46 52 3c 30 54 48 | 45 4e 52 3d 41 42 53 28 |:IFR<0TH|ENR=ABS(|
|00000690| 52 29 4f 52 31 32 38 0a | 35 30 20 50 52 49 4e 54 |R)OR128.|50 PRINT|
|000006a0| 23 32 2c 43 48 52 24 28 | 52 29 3b 3a 4e 3d 4e 2b |#2,CHR$(|R);:N=N+|
|000006b0| 31 3a 49 46 4e 3c 34 37 | 31 54 48 45 4e 34 38 0a |1:IFN<47|1THEN48.|
|000006c0| 35 31 20 50 52 49 4e 54 | 23 32 2c 43 48 52 24 28 |51 PRINT|#2,CHR$(|
|000006d0| 32 35 35 29 3b 43 48 52 | 24 28 32 35 35 29 3a 43 |255);CHR|$(255):C|
|000006e0| 4c 4f 53 45 32 0a 35 32 | 20 50 52 49 4e 54 22 93 |LOSE2.52| PRINT".|
|000006f0| 22 3a 41 3d 55 53 52 28 | 30 29 2c 31 2c 37 2c 31 |":A=USR(|0),1,7,1|
|00000700| 34 3a 41 3d 55 53 52 28 | 31 29 3a 41 3d 55 53 52 |4:A=USR(|1):A=USR|
|00000710| 28 31 36 29 3a 41 3d 55 | 53 52 28 33 39 29 2c 30 |(16):A=U|SR(39),0|
|00000720| 2c 32 34 3a 41 3d 55 53 | 52 28 33 32 29 2c 30 0a |,24:A=US|R(32),0.|
|00000730| 35 33 20 47 4f 53 55 42 | 39 3a 47 4f 54 4f 31 38 |53 GOSUB|9:GOTO18|
|00000740| 0a 35 34 20 41 3d 55 53 | 52 28 33 33 29 2c 30 3a |.54 A=US|R(33),0:|
|00000750| 41 3d 55 53 52 28 33 34 | 29 2c 30 2c 59 2c 36 3a |A=USR(34|),0,Y,6:|
|00000760| 41 3d 55 53 52 28 33 34 | 29 2c 58 2c 32 35 35 2c |A=USR(34|),X,255,|
|00000770| 37 3a 41 3d 55 53 52 28 | 33 39 29 2c 30 2c 31 36 |7:A=USR(|39),0,16|
|00000780| 0a 35 35 20 41 3d 55 53 | 52 28 30 29 2c 30 2c 31 |.55 A=US|R(0),0,1|
|00000790| 2c 34 3a 41 3d 55 53 52 | 28 31 29 3a 41 3d 55 53 |,4:A=USR|(1):A=US|
|000007a0| 52 28 31 37 29 3a 41 3d | 55 53 52 28 31 39 29 3a |R(17):A=|USR(19):|
|000007b0| 41 3d 55 53 52 28 32 31 | 29 0a 35 36 20 50 52 49 |A=USR(21|).56 PRI|
|000007c0| 4e 54 43 48 52 24 28 31 | 34 29 22 93 11 d0 52 45 |NTCHR$(1|4)"...RE|
|000007d0| 53 53 20 41 20 4b 45 59 | 2e 22 0a 35 37 20 47 45 |SS A KEY|.".57 GE|
|000007e0| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 35 |TA$:IFA$|=""THEN5|
|000007f0| 37 0a 35 38 20 50 52 49 | 4e 54 22 93 22 3a 41 3d |7.58 PRI|NT".":A=|
|00000800| 55 53 52 28 30 29 2c 31 | 2c 37 2c 31 34 3a 41 3d |USR(0),1|,7,14:A=|
|00000810| 55 53 52 28 31 29 3a 41 | 3d 55 53 52 28 09 0a 35 |USR(1):A|=USR(..5|
|00000820| 39 20 41 3d 55 53 52 28 | 33 34 29 2c 31 36 2c 59 |9 A=USR(|34),16,Y|
|00000830| 2c 36 3a 41 3d 55 53 52 | 28 33 34 29 2c 58 2c 32 |,6:A=USR|(34),X,2|
|00000840| 33 31 2c 37 0a 36 30 20 | 4c 4f 41 44 22 43 4d 4e |31,7.60 |LOAD"CMN|
|00000850| 44 22 2c 44 30 0a 36 31 | 20 42 52 45 4e 54 20 44 |D",D0.61| BRENT D|
|00000860| 41 4e 45 2c 20 48 4f 55 | 53 54 4f 4e 2c 20 54 58 |ANE, HOU|STON, TX|
|00000870| 0a 36 32 20 43 4f 4d 50 | 55 2d 53 45 52 56 45 20 |.62 COMP|U-SERVE |
|00000880| 23 37 31 33 32 30 2c 33 | 33 33 0a                |#71320,3|33.     |
+--------+-------------------------+-------------------------+--------+--------+